home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / excard / sum.mod < prev    next >
Encoding:
Text File  |  1994-09-22  |  695 b   |  35 lines
  1. MODULE Fak;
  2.  
  3. FROM InOut  IMPORT WriteString,WriteLn,Write,Read,ReadCard;
  4.  
  5. FROM ExFunc IMPORT ExSum;
  6.  
  7. FROM Excard IMPORT ExCard,ExWrite,ExRead;
  8.  
  9. VAR ch  : CHAR;
  10.     sum,n : ExCard;
  11.     
  12. BEGIN 
  13.   Write(CHR(27));
  14.   Write('E');  (* clear screen *)
  15.   Write(CHR(27));
  16.   Write('e');  (* cursor on *)
  17.   REPEAT
  18.     WriteLn;
  19.     WriteString(' Zu welcher Zahl soll die Summierung bestimmt werden ?');
  20.     WriteLn;
  21.     ExRead(n);
  22.     WriteLn;
  23.     ExSum(sum,n);
  24.     WriteString(' Summe = ');
  25.     WriteLn;
  26.     ExWrite(sum);
  27.     WriteLn;
  28.     WriteString(' Weiter y/n ?');
  29.     Read(ch);
  30.   UNTIL (ch='n') OR (ch='N');
  31.   Write(CHR(27));
  32.   Write('f');  (* cursor off *)
  33. END Fak.
  34.  
  35.